Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/smrtslds.sit/SmartSlides 1.1 Demo/background_3859.txt

Text File | 1990-06-12 | 16KB | 703 lines

-- background: 3859 from stack: in.1 Demo
-- bmap block id: 4136
-- flags: 4000
-- background id: 0
-- name: FX
----- HyperTalk script -----
on normalspeed
  repeat with i = 16 to 19
    set the hilite of background button i to false
  end repeat
end normalspeed

on normalimage
  repeat with i = 20 to 24
    set the hilite of background button i to false
  end repeat
end normalimage

on setEffect
  global FX, Direction
  lock screen
  put empty into ThisEffect
  repeat with i = 1 to 24
    if the hilite of background button i is true
    then
    put space & the short name of background button i after ThisEffect
  end if
end repeat
put ThisEffect into line direction of FX
unlock screen with visual effect ThisEffect
end setEffect




-- part 57 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=41 top=24 right=38 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PLAIN
----- HyperTalk script -----
on mouseUp
  repeat with i = 2 to 24
    set the hilite of background button i to false
  end repeat
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=41 top=60 right=74 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: wipe
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 9
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
  set the hilite of background button 14 to false
  set the hilite of background button 15 to false
  if the hilite of background button 10 is false and the hilite of background button 11 is false and the hilite of background button 12 is false and the hilite of background button 13 is false then set the hilite of background button 11 to true
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=41 top=84 right=98 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: scroll
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 9
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
  set the hilite of background button 14 to false
  set the hilite of background button 15 to false
  if the hilite of background button 10 is false and the hilite of background button 11 is false and the hilite of background button 12 is false and the hilite of background button 13 is false then set the hilite of background button 11 to true
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=41 top=141 right=155 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: iris
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 13
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
  if the hilite of background button 14 is false and the hilite of background button 15 is false then set the hilite of background button 14 to true
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=40 top=163 right=177 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: barn door
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 13
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
  if the hilite of background button 14 is false and the hilite of background button 15 is false then set the hilite of background button 14 to true
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=41 top=185 right=199 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: zoom
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 13
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
  if the hilite of background button 14 is false and the hilite of background button 15 is false then set the hilite of background button 14 to true
end mouseUp



-- part 55 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=41 top=219 right=233 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: checkerboard
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 15
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 56 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=41 top=241 right=255 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: venetian blinds
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 15
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=41 top=262 right=276 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dissolve
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 15
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=152 top=43 right=57 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: down
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  repeat with i = 4 to 15
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=152 top=61 right=76 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: left
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  repeat with i = 4 to 15
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=152 top=81 right=95 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: right
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  repeat with i = 4 to 15
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=152 top=100 right=114 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: up
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  repeat with i = 4 to 15
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=152 top=152 right=166 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: open
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 3
    set the hilite of background button i to false
  end repeat
  repeat with i = 7 to 15
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=152 top=176 right=190 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: close
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 3
    set the hilite of background button i to false
  end repeat
  repeat with i = 7 to 15
    set the hilite of background button i to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 58 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=261 top=129 right=143 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: slowly
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  normalspeed
  set the hilite of me to true
end mouseUp



-- part 59 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=261 top=151 right=165 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: very slowly
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  normalspeed
  set the hilite of me to true
end mouseUp



-- part 60 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=261 top=172 right=186 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fast
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  normalspeed
  set the hilite of me to true
end mouseUp



-- part 61 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=261 top=193 right=207 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: very fast
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  normalspeed
  set the hilite of me to true
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=376 top=115 right=129 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: to white
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  normalimage
  set the hilite of me to true
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=377 top=140 right=154 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: to gray
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  normalimage
  set the hilite of me to true
end mouseUp



-- part 64 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=377 top=162 right=176 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: to black
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  normalimage
  set the hilite of me to true
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=377 top=184 right=198 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: to card
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  normalimage
  set the hilite of me to true
end mouseUp



-- part 66 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=377 top=206 right=220 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: to inverse
----- HyperTalk script -----
on mouseUp
  set the hilite of background button 1 to false
  normalimage
  set the hilite of me to true
end mouseUp



-- part 67 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=313 top=283 right=305 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Forward Effect >>
----- HyperTalk script -----
on mouseUp
  global Direction
  put 1 into Direction
  setEffect
end mouseUp



-- part 73 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=34 top=283 right=305 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <<Set Backward Effect
----- HyperTalk script -----
on mouseUp
  global Direction
  put 2 into Direction
  setEffect
end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=224 top=283 right=305 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DONE
----- HyperTalk script -----
on mouseUp
  global FX
  lock screen
  show picture of card "FX"
  show card button "Go Back"
  repeat with i = 1 to the number of card fields
    show card field i
  end repeat
  set the lockmessages to true
  pop card
  set the lockmessages to false
  openBackground
  do "put FX into background field " & quote & "FX" & quote
  unlock screen
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=380 top=236 right=258 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Normal
----- HyperTalk script -----
on mouseUp
  normalimage
end mouseUp



-- part 76 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=268 top=236 right=258 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Normal
----- HyperTalk script -----
on mouseUp
  normalspeed
end mouseUp



-- part 78 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=456 top=0 right=13 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 10
-- part name: CardNumber
----- HyperTalk script -----
on mousedown
end mousedown

on mouseup
end mouseup